home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / ViewIt™ 2.24 Shareware / Pascal Demo Projects / THINK Pascal 4.0 Demos / MinimumLP.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-14  |  270b  |  16 lines
  1. {Minimum LP Demonstration Program}
  2. {©FaceWare 1991-93.  All Rights Reserved.}
  3.  
  4. program MinimumLP;
  5. {$I-}
  6.  
  7.     uses
  8.         FaceStorLP, FaceProcLP;
  9.  
  10. begin
  11.     fRec.uName := 'Minimum.Rsrc';
  12.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  13.     repeat
  14.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  15.     until false;
  16. end.